* Import ENH 1996-1
* This file converts the files from the ENH 1997-3 into Stata format. 
* Inputs: Files in Data/Original/encuestas de hogares/ENH/1996/3/eh97sp97.P99
* Outputs: Files in Data/Importable/ENH/1997/TRIM 3 

clear all
version 13.1

* Change
project, doinfo   
local master "`r(pdir)'"
local doname "`r(dofile)'" 

cap mkdir "`master'/Data/Importable/ENH/1997"
cap mkdir "`master'/Data/Importable/ENH/1997/TRIM 3"
cd "../../Data/Original/encuestas de hogares/ENH/1997"
cd eht19973

* * Registro tipo 01 - Datos de la vivienda/hogar
* Se parece a la ECV
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
tipo_vivienda 28 material_paredes 29 material_pisos 30 acueducto 31 alcantarillado 32 electricidad 33 telefono 34 gas 35 num_cuartos 36-37 tipo_sanitario 38 basura 39 fuente_agua 40 energia_cocinar 41 propiedad_vivienda 42 cuota 43-52 lavadora 53 nevera 54 televisor 55 sonido 56 horno 57 ninguno 58 ///
area 93-94 fex 95-98 ///
if tipo_registro==10 using eh97sp97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_hogar.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_hogar.dta")

* Registro tipo 10 - Caracteristicas generales
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
parentesco 30-31 sexo 32 edad 33-34 estado_civil 35 str departamento_nacimiento 36-37 str municipio_nacimiento 38-40  cabecera_nacimiento 41 tiempo_residencia 42-43 lee_escribe 44 asiste_escuela 45 colegio_oficial 46 ultimo_grado_estudios 47-49 ///
area 93-94 fex 95-98 ///
if tipo_registro==10 using eh97sp97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_general.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_general.dta")

* Registro tipo 50 - Fuerza de trabajo
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
actividad 30 trabajo_familia 31 no_trabajo_empleo 32 razon_ausente 33 busco_ultima 34 ha_buscado 35 no_ha_buscado_t 36-37 d_ing_trabajo 38 d_ing_intereses 39 d_ing_arriendo 40 d_ing_pension 41 d_ing_ayudas 42 d_ing_otros 43 d_ing_no 44 ingreso 45-54 ///
area 93-94 fex 95-98 ///
if tipo_registro==50 using eh97sp97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_fuerza_trabajo.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_fuerza_trabajo.dta")

* Registro tipo 60 - Ocupados
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
trabajo_permanente 30 horas_ultima 31-32 horas_semana 33-34 quiere_trabajar_mas 35 motivo_trab_mas 36 ocupacion 37-38 actividad_empresa 39-40 tipo_trabajador 41 salario 42-51 salario_period 52 d_salario_alimentos 53 salario_alimentos 54-63 ganancia_mes 64-73 d_otros_ingresos 74 otros_ingresos 75-84 afiliado_salud 85 afiliado_pension 86  ///
area 93-94 fex 95-98 ///
if tipo_registro==60 using eh97sp97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_ocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_ocupados.dta")

* Registro tipo 70 - Desocupados
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
tiempo_buscando 30-31 buscado_pte 32 buscado_tcompleto 33 buscado_tipo 34 buscado_ocupacion 35-36 buscado_actividad 37-38 buscado_primeravez 39 tiempo_dejo_trabajar 40-41 trabajoo_ocupacion 42-43 trabajoo_actividad 44-45 trabajoo_tipo 46 d_ing_trabajo 47 d_ing_intereses 48 d_ing_arriendos 49 d_ing_pensiones 50 d_ing_ayudas 51 d_ing_otros 52 d_ing_no 53 ingreso 54-63 ///
area 93-94 fex 95-98 ///
if tipo_registro==70 using eh97sp97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_desocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_desocupados.dta")

* Registro tipo 80 - Inactivos
clear 
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
segunda_actividad 30 tiempo_inactivo 31 actividad_antes 32-33 tiempo_trabajando 34-35 motivo_dejo_trabajo 36 ha_buscado 37 cuando_busco 38-39 motivo_no_buscado 40 ///
area 93-94 fex 95-98 ///
if tipo_registro==80 using eh97sp97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_inactivos.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 3/1997_3_inactivos.dta")
